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Procedure AS S O CI ATE_U S E_ATTRI B UTE ( g ) 
grgraph 

begin 

for each vertex u in g, do 

u.uses_named_vertex:= false; 
enddo 

for each vertex u do 

if u is a named vertex then 

MARK_USES(u) 
endif 

enddo 

end 

Procedure MARKJJSES(u) 
u: vertex; 

begin 

if (not u.uses_named_vertex) then 
u.uses_named_vertex: = true; 
for each edge of form u-^vdo 

MARK_USES(v) 
enddo 

endif 

end 
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Proced u re ASSOCIATE_AFFECTS_ATTRIBUTE(g) 
g:graph 

begin 

for each vertex v in g, do 

v.affects_named_vertex:= false; 
enddo 

for each vertex v do 

if v is a named vertex then 
MARK_AFFECTS(v) 

endif 
enddo 

end 

Procedure MARK_USES(v) 
v: vertex; 

begin 

if (not v.affects_named_vertex) then 
v.affects_named_vertex:= true; 
for each edge of form u-^vdo 

MARK_AFFECTS(u) 
enddo 

endif 

end 
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/TRANSLATION UNIT #1*/ 

extern void c(); 
extern void e(); 

static void f(){ 
c(); 
e(); 

} 

void d(){ 
f(); 

} 

void e(){ 
> 

main(){ 
d(); 

} 



/TRANSLATION UNIT #2*/ 
void b(); 

static void (*a)()=b; 

extern void d(); 
extern void e(); 

void b(){ 
d(); 
(*a)(); 

> 

void c(){ 
e(); 

> 
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Procedure PRESOLVE(g) 
g:graph 

begin 
do 

changed = false; 

for each edge u^v in g do 

if (not u.uses_named_vertex) then 

t := meet(v.val,((u->v).func)(u.val)); 
if t* v.val then 
v.val := t; 
changed := true; 
endif 
endif 
enddo 
while changed; 

end 
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